home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / COMM / TERMINAL / ARCTERM / ARCTERM_00
Text File  |  1992-04-30  |  2KB  |  52 lines
  1. Another way is to
  2. download files to a different networked computer, and then set up local
  3. file transfer between the serial ports of the two machines. Again the
  4. programme below could be used as the ARC end of that transfer. Serial data
  5. transfer is full of problems till it starts to work. Check your connections
  6. are correct, and the speed is the same at both ends!! (*CON.BAUD 1200 etc
  7. for the ARC.) The final way is to use a DOS disk reader on the ARC, if
  8. your networked machine is PC compatable. 
  9.  
  10. ------------ArcTerm Mini Terminal with file save-----------------------
  11.    10 REM >ArcTerm
  12.    20 MODE0
  13.    30 PRINT"ArcTerminal"
  14.    40 PRINT"Now in terminal mode"
  15.    50 PRINT"Use CTRL A to OPEN a file for output, CTRL B to CLOSE it"
  16.    60 ONERROR OSCLI"FX2 0":OSCLI"CLOSE":REPORT:PRINT" at line ";ERL:END
  17.    70 file%=FALSE
  18.    80 REPEAT
  19.    90 *FX2 2
  20.   100 IF ADVAL(-1)>0 AND ADVAL(-3)>0 THEN
  21.   110  char%=GET
  22.   120  IF char%<3 THEN
  23.   130   CASE char% OF
  24.   140    WHEN 1:PROCopen :REM  ctrl'A'
  25.   150    WHEN 2:PROCclose:REM  ctrl'B'
  26.   160   ENDCASE
  27.   170  ELSE
  28.   180   SYS"OS_Byte",138,2,char%
  29.   190  ENDIF
  30.   200 ENDIF
  31.   210 *FX2 1
  32.   220 WHILE ADVAL(-2)>0
  33.   230  char%=GET
  34.   240  VDU char% AND &7F
  35.   250  IF file% THEN BPUT#file%,char%
  36.   260 ENDWHILE
  37.   270 UNTIL0
  38.   280 :
  39.   290 DEFPROCopen
  40.   300 INPUT'"Filename :"f$
  41.   310 file%=OPENOUT f$
  42.   320 PRINTf$" opened for output"
  43.   330 ENDPROC
  44.   340 :
  45.   350 DEFPROCclose
  46.   360 CLOSE#file%
  47.   370 PRINT"File closed"
  48.   380 file%=FALSE
  49.   390 ENDPROC
  50. --------------------End of ArcTerm----------------------------------
  51.  
  52.